home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1997 February / Computer Life February 1997.iso / TELME / COMMS / FMODEM.SRP < prev    next >
Encoding:
Text File  |  1996-08-27  |  1.9 KB  |  111 lines
  1. rem Copyright (c) PhoneLink plc
  2. rem Generic Fast Connect Modem (23/8/95)
  3.  
  4. label InitDevice
  5. echo off
  6. flush
  7. echo script[56]
  8. send    "atchar(13)"
  9. timeout 5,modem_fail
  10. find    "OK"
  11. label OffToGate
  12. rem Offline to Gate (also contains Pad to Gate)
  13. echo off
  14. flush
  15. echo script[57]
  16. send    "at{InitModemStr}char(13)"
  17. timeout 5,modem_fail
  18. find    "OK"
  19. send   "atd{DialMode}{PreTel}{SiteTel}{PostFix}char(13)"
  20. echo script[52]...
  21. timeout {DialTimeout},connect_fail
  22. finderr 0,BUSY,busy
  23. finderr 103,NO DIALTONE,connect_fail
  24. finderr 0,NO CARRIER,no_carrier  
  25. find "CONNECT"
  26. timeout 3,Bad_PadPrompt
  27. finderr 0,PAD>,Good_PadPrompt
  28. find "ZZZ"
  29. label Bad_PadPrompt
  30. echo script[58]
  31. send "char(13)"
  32. timeout 3,pad_fail
  33. find "PAD>"
  34. label Good_PadPrompt
  35. label PadToGate
  36. echo off
  37. echo script[53]  
  38. send    "SER{SUB}char(13)"
  39. timeout 3,nua_bad1
  40. finderr 0,COM,nua_good
  41. find    "ZZZ"
  42. label nua_bad1
  43. send    "SER{SUB}char(13)"
  44. timeout 3,nua_bad2
  45. finderr 0,COM,nua_good
  46. find    "ZZZ"
  47. label nua_bad2
  48. send    "SER{SUB}char(13)"
  49. timeout 3,nua_fail
  50. find    "COM"
  51. label nua_good
  52. echo script[54].
  53. end
  54.  
  55. label GateToPad
  56. echo off
  57. echo script[92]
  58. send    "char(16)CLRchar(13)"
  59. timeout 5,ctrl_p_clear_fail
  60. find    "CONF"
  61. echo script[91]...
  62. end
  63.  
  64. label GateToOff
  65. rem Gate To Offline (also contains Pad to Offline)
  66. echo off
  67. label PadToOff
  68. echo off
  69. send    "char(31)char(31)char(31)char(31)"
  70. wait 1
  71. dtrtoggle
  72. echo script[99].
  73. end
  74.  
  75. label modem_offline
  76. send    "char(31)char(31)char(31)char(31)"
  77. wait 1
  78. label hang_up
  79. dtrtoggle
  80. echo script[99] 
  81. abort
  82.  
  83. label modem_fail
  84. echo script[23].
  85. dtrtoggle
  86. abort
  87.  
  88. label connect_fail
  89. echo script[1]
  90. goto hang_up
  91.  
  92. label busy
  93. echo script[2]
  94. goto hang_up
  95.  
  96. label no_carrier
  97. echo script[3]
  98. goto hang_up
  99.  
  100. label pad_fail
  101. echo script[1]
  102. goto modem_fail
  103.  
  104. label nua_fail
  105. echo script[22]
  106. goto modem_offline
  107.  
  108. label ctrl_p_clear_fail
  109. echo script[14]
  110. goto modem_offline
  111.